object FrameGrab: TFrameGrab Left = 76 Top = 106 Width = 521 Height = 300 Caption = 'FrameGrab' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] PixelsPerInch = 96 TextHeight = 14 object Label1: TLabel Left = 372 Top = 0 Width = 93 Height = 14 Caption = 'Filename to save to' end object Label2: TLabel Left = 346 Top = 48 Width = 3 Height = 14 end object BitBtn1: TBitBtn Left = 217 Top = 113 Width = 97 Height = 33 Caption = '>> Capture >>' TabOrder = 0 OnClick = BitBtn1Click end object PMultiMedia1: TPMultiMedia Left = 18 Top = 73 Width = 161 Height = 105 AutoPlayMultiMedia = False AutoRePlayMultiMedia = False AutoHideMediaPlayer = False Color = clBtnFace MediaName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic ImageWriteRes = sAutoMatic JPegSaveQuality = 25 JPegSaveSmooth = 0 MediaPlayer = MIMediaPlayer1 TifSaveCompress = sNONE TextLeft = 0 TextTop = 0 TextRotate = 0 TabOrder = 1 TabStop = False UseTwainWindow = False end object Button1: TButton Left = 18 Top = 8 Width = 89 Height = 33 Caption = 'open video' TabOrder = 2 OnClick = Button1Click end object MIMediaPlayer1: TMIMediaPlayer Left = 1 Top = 179 Width = 197 Height = 30 EnabledButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack] VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack] TabOrder = 3 end object Button2: TButton Left = 416 Top = 40 Width = 80 Height = 29 Caption = 'Save to file' TabOrder = 4 OnClick = Button2Click end object Memo1: TMemo Left = 184 Top = 14 Width = 152 Height = 57 Lines.Strings = ( 'This form shows you how to ' 'Capture a frame from a video ' 'and save that frame to a file.') TabOrder = 5 end object GroupBox3: TGroupBox Left = 283 Top = 182 Width = 216 Height = 87 Caption = 'Save As' Font.Color = clPurple Font.Height = -12 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False TabOrder = 6 object CTOJPEG: TRadioButton Left = 16 Top = 20 Width = 80 Height = 17 Caption = 'JPG Image' TabOrder = 0 OnClick = SaveAsChange end object CTOBMP: TRadioButton Left = 16 Top = 42 Width = 80 Height = 17 Caption = 'BMP Image' Checked = True TabOrder = 1 TabStop = True OnClick = SaveAsChange end object CTOGIF: TRadioButton Left = 16 Top = 65 Width = 80 Height = 17 Caption = 'GIF Image' TabOrder = 2 OnClick = SaveAsChange end object CTOPCX: TRadioButton Left = 103 Top = 20 Width = 80 Height = 17 Caption = 'PCX Image' TabOrder = 3 OnClick = SaveAsChange end object CTOPNG: TRadioButton Left = 103 Top = 42 Width = 80 Height = 17 Caption = 'PNG Image' TabOrder = 4 OnClick = SaveAsChange end object CTOTIF: TRadioButton Left = 103 Top = 64 Width = 80 Height = 17 Caption = 'TIF Image' TabOrder = 5 OnClick = SaveAsChange end end object Edit1: TEdit Left = 376 Top = 17 Width = 121 Height = 21 TabOrder = 7 Text = 'C:\TEST.BMP' end object PMultiImage1: TPMultiImage Left = 344 Top = 73 Width = 153 Height = 105 Color = clBtnFace Font.Color = clYellow Font.Height = -8 Font.Name = 'Arial' Font.Style = [] ImageName = 'file not found' ImageDither = True ImageReadRes = lAutoMatic ImageWriteRes = sColor256 TifSaveCompress = sNONE JPegSaveQuality = 25 JPegSaveSmooth = 0 ParentFont = False Stretch = True Text = 'ImageLib by SkyLine Tools' TextShadow = True TextShadowColor = clGray TextLeft = 150 TextTop = 10 TextRotate = 270 TabOrder = 8 TabStop = False end object MMOpenDialog1: TMMOpenDialog AutoDisPlay = False AutoPlay = False Filter = '*.AVI;*.mov|*.avi;*.mov' Title = 'Open File' Left = 112 Top = 10 end end